home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesform1.s < prev    next >
Text File  |  1989-04-06  |  2KB  |  63 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Form Manager routines 1 of 3.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; form_do
  18. ;-------------------------------------------------------------------------
  19.  
  20. _form_do::
  21.           .cargs    #4,.ptree.l,.obj
  22.           AControl  50,1,1,1
  23.           lea       .obj(sp),a1         ; -> intin
  24.           lea       .ptree(sp),a0       ; -> addrin
  25.           ACall     RET2USER  
  26.  
  27. ;-------------------------------------------------------------------------
  28. ; form_error
  29. ; form_dial
  30. ;-------------------------------------------------------------------------
  31.  
  32. _form_error::
  33.           AControl  53,1,1,0
  34.           bra.s     form_erdi
  35. _form_dial::
  36.           AControl  51,9,1,0
  37. form_erdi:
  38.           .cargs    #4,.intin
  39.           lea       .intin(sp),a1       ; -> intin 
  40.           ACall     RET2USER  
  41.  
  42. ;-------------------------------------------------------------------------
  43. ; form_center
  44. ;-------------------------------------------------------------------------
  45.  
  46. _form_center::
  47.           .cargs    #8,.ptree.l,.px.l,.py.l,.pw.l,.ph.l
  48.  
  49.           link      a6,#-10
  50.           
  51.           AControl  54,0,5,1
  52.  
  53.           moveq.l   #-10,d2       
  54.           lea       .ptree(a6),a0
  55.           ACall     RET2HERE
  56.  
  57.           moveq.l   #-10,d1
  58.           lea       .px(a6),a1
  59.           jmp       (a0)
  60.           
  61. ;         end of code
  62.  
  63.